<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>4249</cardID>
<listID>2185</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>224</width>
<height>352</height>
</cardSize>
<script>function ExtractFileName FileNameput ":" into Delimiterif Delimiter is in FileName thenrepeat with CharPos = length(FileName) down to 1if char CharPos of FileName = Delimiterthen return char CharPos+1 to length(FileName) of FileNameend repeatreturn emptyelsereturn FileNameend ifend ExtractFileNamefunction ExtractPathName FileNameput ":" into Delimiterrepeat with CharPos = length(FileName) down to 1if char CharPos of FileName = Delimiterthen return char 1 to CharPos of FileNameend repeatreturn emptyend ExtractPathName</script>